home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jentryemacs.tcl < prev    next >
Encoding:
Text File  |  1995-02-05  |  2.4 KB  |  94 lines
  1. # jentryemacs.tcl - support for Emacs Entry bindings
  2. # 
  3. # Copyright 1992-1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non-profit, noncommercial use.
  6.  
  7. ######################################################################
  8. # j:eb:emacs_init - initialise info for Emacs Entry bindings
  9. ######################################################################
  10.  
  11. proc j:eb:emacs_init { e } {
  12.   global j_teb
  13.   set j_teb(cutbuffer) {}
  14.   set j_teb(dragscroll,txnd) 0
  15.   set j_teb(dragscroll,delay) 50
  16.   set j_teb(scanpaste_time) 0
  17.   set j_teb(scanpaste_paste) 1
  18.     
  19.   set j_teb(keymap,$e) emacs-normal
  20.   
  21.   # in tk4, we need to make sure tkTextBind is called _before_
  22.   #   j:tb:key_bind!
  23.   j:tk4 {tkEntryBind Enter}
  24.   
  25.   j:eb:key_bind $e
  26.   j:eb:mouse_bind $e
  27.   
  28.   j:ekb:mkmap Entry emacs-normal emacs-normal {
  29.     {Control-slash        j:eb:select_all}
  30.     {Control-backslash        j:eb:clear_selection}
  31.     
  32.     {Delete            j:ekb:delete_left}
  33.     {BackSpace            j:ekb:delete_left}
  34.     {Return            j:ekb:self_insert}
  35.     
  36.     {Left            j:ekb:left}
  37.     {Right            j:ekb:right}
  38.     
  39.     {Home            j:ekb:bol}
  40.     {End            j:ekb:eol}
  41.     
  42.     {Control-a            j:ekb:bol}
  43.     {Control-e            j:ekb:eol}
  44.     
  45.     {Control-b            j:ekb:left}
  46.     {Control-f            j:ekb:right}
  47.     
  48.     {Control-i            j:ekb:self_insert}
  49.     {Control-j            j:ekb:self_insert}
  50.     {Control-h            j:ekb:delete_left}
  51.     
  52.     {Control-d            j:ekb:delete_right}
  53.     {Control-w            j:ekb:kill_selection}
  54.     {Control-k            j:ekb:kill_eol}
  55.     
  56.     {Control-v            j:ekb:eol}
  57.     
  58.     {Control-q            j:ekb:new_mode emacs-literal}
  59.     {Escape            j:ekb:new_mode emacs-escape}
  60.     
  61.     {Control-DEFAULT        j:eb:no_op}
  62.     {DEFAULT            j:ekb:self_insert}
  63.     {Shift-DEFAULT        j:ekb:self_insert}
  64.   }
  65.   
  66.   j:ekb:mkmap Entry emacs-escape emacs-normal {
  67.     {b                j:ekb:word_left}
  68.     {f                j:ekb:word_right}
  69.     {Delete            j:ekb:delete_word_left}
  70.     {BackSpace            j:ekb:delete_word_left}
  71.     {d                j:ekb:delete_word_right}
  72.     {v                j:ekb:bol}
  73.     {less            j:ekb:bol}
  74.     {greater            j:ekb:eol}
  75.  
  76.     {Control-DEFAULT        j:eb:no_op}
  77.     {DEFAULT            j:eb:no_op}
  78.     {Shift-DEFAULT        j:eb:no_op}
  79.   }
  80.   
  81.   j:ekb:mkmap Entry emacs-literal emacs-normal {
  82.     {DEFAULT            j:ekb:self_insert}
  83.     {Shift-DEFAULT        j:ekb:self_insert}
  84.     {Control-DEFAULT        j:ekb:self_insert}
  85.     {Meta-DEFAULT        j:ekb:self_insert}
  86.   }
  87. }
  88.  
  89. # deprecated alias for backward compatibility:
  90.  
  91. proc j:eb:emacs_bind { W } {
  92.   j:eb:emacs_init $W
  93. }
  94.